home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO088A.dsk / HIRES.TEST.bas < prev    next >
BASIC Source File  |  2012-02-16  |  1KB  |  56 lines
  1. 10  REM  REVISION 2-26-86
  2. 20  REM  HIRES TV PATTERN GENERATOR
  3. 30  REM  BY PHILIP A. WASSON
  4. 35  REM  MODIFIED BY MICHAEL A. COFFEY
  5. 40 CR$ =  CHR$(13)
  6. 90  REM 
  7. 100  REM  DISPLAY MENU
  8. 110  TEXT : HOME 
  9. 120  VTAB 2: PRINT "SELECT OPTIONS:"
  10. 130  VTAB 5
  11. 140  PRINT : PRINT "1...DOT PATTERN"
  12. 150  PRINT : PRINT "2...CROSSHATCH"
  13. 160  PRINT : PRINT "3...CROSSHAIR"
  14. 170  PRINT : PRINT "4...RETURN TO MAIN MENU"
  15. 410  PRINT : VTAB 20: INVERSE : PRINT " SELECT ";: NORMAL : PRINT " ";
  16. 500  GET K$: PRINT K$
  17. 505  IF K$ <"1"  OR K$ >"4"  THEN  PRINT  CHR$(7): GOTO 410
  18. 510  ON  VAL(K$) GOTO 1000,2000,3000,970
  19. 520  IF K$ = "2"  THEN 2000
  20. 530  IF K$ = "3"  THEN 3000
  21. 960  IF K$ < >CR$  THEN 100
  22. 970  TEXT : HOME 
  23. 980  PRINT  CHR$(4);"RUN HELLO2"
  24. 990  REM 
  25. 1000  REM  DOT PATTERN
  26. 1010  GOSUB 60010
  27. 1020  FOR Y = 12 TO 180  STEP 28
  28. 1030  FOR X = 14 TO 266  STEP 28
  29. 1040  HPLOT X,Y
  30. 1050  NEXT X,Y
  31. 1055  GET P$: PRINT P$
  32. 1060  GOTO 110
  33. 1990  REM 
  34. 2000  REM  CROSSHATCH
  35. 2010  GOSUB 60010
  36. 2020  FOR Y = 0 TO 180  STEP 18
  37. 2030  HPLOT 0,Y TO 279,Y
  38. 2040  NEXT 
  39. 2050  FOR X = 0 TO 252  STEP 28
  40. 2060  HPLOT X,0 TO X,179
  41. 2070  NEXT 
  42. 2080  HPLOT 279,0 TO 279,179
  43. 2085  GET P$: PRINT P$
  44. 2090  GOTO 110
  45. 2990  REM 
  46. 3000  REM  CROSSHAIR
  47. 3010  GOSUB 60010
  48. 3020  HPLOT 0,96 TO 279,96
  49. 3030  HPLOT 140,0 TO 140,191
  50. 3045  GET P$: PRINT P$
  51. 3050  GOTO 110
  52. 3990  REM 
  53. 60000  REM  SET HIRES GRAPHICS
  54. 60010  HGR2 
  55. 60020  HCOLOR= 7
  56. 60030  RETURN